home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf
/
MF-Pascal_0.2
/
test4.p
< prev
next >
Wrap
Text File
|
1990-02-23
|
189b
|
16 lines
program main(input,output);
var
i,j: integer;
Begin
i := 0;
while i < 300 do
Begin
j := 0;
while j < 10000
do Begin
j := j + 1;
end;
i := i+1;
end;
end.